unit basicio_const;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, basicio_city, basicio_street;

type
  TFieldToCity = record
    FieldX: integer;
    FieldY: integer;
    Cities: array[0..5] of TCityPosition;
  end;
type
  THarborToPos = record
    City1: TCityPosition;
    City2: TCityPosition;
    Pos: TPoint;
  end;

const

  FieldCityMap: array[0..18] of TFieldToCity = (
    (FieldX:01;FieldY:01;Cities:((x:3;y:1),(x:3;y:2),(x:3;y:3),(x:4;y:1),(x:4;y:2),(x:4;y:3))),
    (FieldX:02;FieldY:01;Cities:((x:2;y:4),(x:2;y:3),(x:2;y:2),(x:3;y:4),(x:3;y:3),(x:3;y:2))),
    (FieldX:02;FieldY:02;Cities:((x:4;y:2),(x:4;y:3),(x:4;y:4),(x:5;y:2),(x:5;y:3),(x:5;y:4))),
    (FieldX:03;FieldY:01;Cities:((x:2;y:3),(x:2;y:4),(x:2;y:5),(x:1;y:3),(x:1;y:4),(x:1;y:5))),
    (FieldX:03;FieldY:02;Cities:((x:3;y:3),(x:3;y:4),(x:3;y:5),(x:4;y:3),(x:4;y:4),(x:4;y:5))),
    (FieldX:03;FieldY:03;Cities:((x:5;y:3),(x:5;y:4),(x:5;y:5),(x:6;y:3),(x:6;y:4),(x:6;y:5))),
    (FieldX:04;FieldY:01;Cities:((x:2;y:4),(x:2;y:5),(x:2;y:6),(x:3;y:4),(x:3;y:5),(x:3;y:6))),
    (FieldX:04;FieldY:02;Cities:((x:4;y:4),(x:4;y:5),(x:4;y:6),(x:5;y:4),(x:5;y:5),(x:5;y:6))),
    (FieldX:05;FieldY:01;Cities:((x:2;y:7),(x:2;y:6),(x:2;y:5),(x:1;y:7),(x:1;y:6),(x:1;y:5))),
    (FieldX:05;FieldY:02;Cities:((x:3;y:5),(x:3;y:6),(x:3;y:7),(x:4;y:5),(x:4;y:6),(x:4;y:7))),
    (FieldX:05;FieldY:03;Cities:((x:5;y:7),(x:5;y:6),(x:5;y:5),(x:6;y:7),(x:6;y:6),(x:6;y:5))),
    (FieldX:06;FieldY:01;Cities:((x:2;y:6),(x:2;y:7),(x:2;y:8),(x:3;y:6),(x:3;y:7),(x:3;y:8))),
    (FieldX:06;FieldY:02;Cities:((x:4;y:6),(x:4;y:7),(x:4;y:8),(x:5;y:6),(x:5;y:7),(x:5;y:8))),
    (FieldX:07;FieldY:01;Cities:((x:2;y:7),(x:2;y:8),(x:2;y:9),(x:1;y:7),(x:1;y:8),(x:1;y:9))),
    (FieldX:07;FieldY:02;Cities:((x:3;y:7),(x:3;y:8),(x:3;y:9),(x:4;y:7),(x:4;y:8),(x:4;y:9))),
    (FieldX:07;FieldY:03;Cities:((x:5;y:7),(x:5;y:8),(x:5;y:9),(x:6;y:7),(x:6;y:8),(x:6;y:9))),
    (FieldX:08;FieldY:01;Cities:((x:2;y:8),(x:2;y:9),(x:2;y:10),(x:3;y:8),(x:3;y:9),(x:3;y:10))),
    (FieldX:08;FieldY:02;Cities:((x:4;y:8),(x:4;y:9),(x:4;y:10),(x:5;y:8),(x:5;y:9),(x:5;y:10))),
    (FieldX:09;FieldY:01;Cities:((x:3;y:9),(x:3;y:10),(x:3;y:11),(x:4;y:9),(x:4;y:10),(x:4;y:11))));      


  StreetPosArray: array[0..71] of TStreetPosition = (
    ((x:1;y:3),(x:1;y:4)),
    ((x:1;y:3),(x:2;y:3)),
    ((x:1;y:4),(x:1;y:5)),
    ((x:1;y:5),(x:1;y:6)),
    ((x:1;y:5),(x:2;y:5)),
    ((x:1;y:6),(x:1;y:7)),
    ((x:1;y:7),(x:1;y:8)),
    ((x:1;y:7),(x:2;y:7)),
    ((x:1;y:8),(x:1;y:9)),
    ((x:1;y:9),(x:2;y:9)),

    ((x:2;y:2),(x:2;y:3)),
    ((x:2;y:2),(x:3;y:2)),
    ((x:2;y:3),(x:2;y:4)),
    ((x:2;y:4),(x:3;y:4)),
    ((x:2;y:4),(x:2;y:5)),
    ((x:2;y:5),(x:2;y:6)),
    ((x:2;y:6),(x:2;y:7)),
    ((x:2;y:6),(x:3;y:6)),
    ((x:2;y:7),(x:2;y:8)),
    ((x:2;y:8),(x:2;y:9)),
    ((x:2;y:8),(x:3;y:8)),
    ((x:2;y:9),(x:2;y:10)),
    ((x:2;y:10),(x:3;y:10)),

    ((x:3;y:1),(x:3;y:2)),
    ((x:3;y:1),(x:4;y:1)),
    ((x:3;y:2),(x:3;y:3)),
    ((x:3;y:3),(x:3;y:4)),
    ((x:3;y:3),(x:4;y:3)),
    ((x:3;y:4),(x:3;y:5)),
    ((x:3;y:5),(x:3;y:6)),
    ((x:3;y:5),(x:4;y:5)),
    ((x:3;y:6),(x:3;y:7)),
    ((x:3;y:7),(x:3;y:8)),
    ((x:3;y:7),(x:4;y:7)),
    ((x:3;y:8),(x:3;y:9)),
    ((x:3;y:9),(x:3;y:10)),
    ((x:3;y:9),(x:4;y:9)),
    ((x:3;y:10),(x:3;y:11)),
    ((x:3;y:11),(x:4;y:11)),

    ((x:4;y:1),(x:4;y:2)),
    ((x:4;y:2),(x:4;y:3)),
    ((x:4;y:2),(x:5;y:2)),
    ((x:4;y:3),(x:4;y:4)),
    ((x:4;y:4),(x:4;y:5)),
    ((x:4;y:4),(x:5;y:4)),
    ((x:4;y:5),(x:4;y:6)),
    ((x:4;y:6),(x:4;y:7)),
    ((x:4;y:6),(x:5;y:6)),
    ((x:4;y:7),(x:4;y:8)),
    ((x:4;y:8),(x:4;y:9)),
    ((x:4;y:8),(x:5;y:8)),
    ((x:4;y:9),(x:4;y:10)),
    ((x:4;y:10),(x:4;y:11)),
    ((x:4;y:10),(x:5;y:10)),

    ((x:5;y:2),(x:5;y:3)),
    ((x:5;y:3),(x:5;y:4)),
    ((x:5;y:3),(x:6;y:3)),
    ((x:5;y:4),(x:5;y:5)),
    ((x:5;y:5),(x:5;y:6)),
    ((x:5;y:5),(x:6;y:5)),
    ((x:5;y:6),(x:5;y:7)),
    ((x:5;y:7),(x:5;y:8)),
    ((x:5;y:7),(x:6;y:7)),
    ((x:5;y:8),(x:5;y:9)),
    ((x:5;y:9),(x:5;y:10)),
    ((x:5;y:9),(x:6;y:9)),

    ((x:6;y:3),(x:6;y:4)),
    ((x:6;y:4),(x:6;y:5)),
    ((x:6;y:5),(x:6;y:6)),
    ((x:6;y:6),(x:6;y:7)),
    ((x:6;y:7),(x:6;y:8)),
    ((x:6;y:8),(x:6;y:9))
    );

  HarborPosArray: array[0..8] of THarborToPos = (
      (City1:(x:3;y:1); City2:(x:1;y:1); Pos:(x:322;y:77)),
      (City1:(x:2;y:2); City2:(x:2;y:3); Pos:(x:146;y:181)),
      (City1:(x:1;y:5); City2:(x:1;y:6); Pos:(x:60;y:329)),
      (City1:(x:1;y:8); City2:(x:1;y:9); Pos:(x:63;y:523)),
      (City1:(x:2;y:10);City2:(x:3;y:10);Pos:(x:237;y:634)),
      (City1:(x:4;y:10);City2:(x:5;y:10);Pos:(x:403;y:631)),
      (City1:(x:6;y:8); City2:(x:6;y:9); Pos:(x:580;y:535)),
      (City1:(x:6;y:5); City2:(x:6;y:6); Pos:(x:579;y:331)),
      (City1:(x:5;y:2); City2:(x:5;y:3); Pos:(x:492;y:177))
    );

implementation

end.

